unit Main;

interface

uses Windows;

function CoreInitialize:Byte; stdcall;

implementation

function CoreInitialize:Byte; stdcall;
Begin
  MessageBoxA(0, 'Bingo!', nil, MB_OK);
  Result := 0;
End;

end.
